1) LIBPAS.PAS[PAS,SYS] and 2) LIBPAS.BKP[PAS,SYS]	12-10-79 03:01	pages 1,1

**** File 1) LIBPAS.PAS[PAS,SYS], Page 1 line 7
1)	C00019 00005		(** insert ENTER_SWITCH **)
1)	C00021 00006		(** GETFILENAME RE_INITIALIZE INITIALIZE READCHAR READOCTAL READDECIMAL SETSTATUS READSWITCH OPERAND NEXTCH ASSIGNFILENAMEOREXTENSION **)
**** File 2) LIBPAS.BKP[PAS,SYS], Page 1 line 7
2)	C00019 00005		(** ENTER ENTER_SWITCH **)
2)	C00021 00006		(** GETFILENAME RE_INITIALIZE INITIALIZE READCHAR READOCTAL READDECIMAL SETSTATUS READSWITCH OPERAND NEXTCH ASSIGNFILENAMEOREXTENSION **)
***************


**** File 1) LIBPAS.PAS[PAS,SYS], Page 1 line 39
1)	C00207 00037	PROGRAM strings, assign, length, pos, substr, concat, getchr, putchar,
1)	C00230 00038	PROGRAM dumper, dpcnts
1)	C00234 00039	PROGRAM mathruns, psqrt
1)	C00236 ENDMK
1)	C⊗;
**** File 2) LIBPAS.BKP[PAS,SYS], Page 1 line 39
2)	C00207 00037	PROGRAM strings, assign, length, pos, substr, concat, getchar, putchar,
2)	C00229 00038	PROGRAM dumper, dpcnts
2)	C00233 00039	PROGRAM mathruns, psqrt
2)	C00235 ENDMK
2)	C⊗;
***************


**** File 1) LIBPAS.PAS[PAS,SYS], Page 5 line 1
1)		(** insert ENTER_SWITCH **)
1)	PROCEDURE insert(fname: alfa; fvalue: integer);
1)	    PROCEDURE enter_switch(ftree: swp);
**** File 2) LIBPAS.BKP[PAS,SYS], Page 5 line 1
2)		(** ENTER ENTER_SWITCH **)
2)	PROCEDURE enter(fname: alfa; fvalue: integer);
2)	    PROCEDURE enter_switch(ftree: swp);
***************


**** File 1) LIBPAS.PAS[PAS,SYS], Page 5 line 17
1)	    BEGIN (* insert *)
1)	    new(new_switch);
**** File 2) LIBPAS.BKP[PAS,SYS], Page 5 line 17
2)	    BEGIN (* ENTER *)
2)	    new(new_switch);
***************


**** File 1) LIBPAS.PAS[PAS,SYS], Page 5 line 26
1)	    END (* insert *);
1)		(** GETFILENAME RE_INITIALIZE INITIALIZE READCHAR READOCTAL READDECIMAL SETSTATUS READSWITCH OPERAND NEXTCH ASSIGNFILENAMEOREXTENSION **)
**** File 2) LIBPAS.BKP[PAS,SYS], Page 5 line 26
2)	    END (* ENTER *);
2)		(** GETFILENAME RE_INITIALIZE INITIALIZE READCHAR READOCTAL READDECIMAL SETSTATUS READSWITCH OPERAND NEXTCH ASSIGNFILENAMEOREXTENSION **)
***************


**** File 1) LIBPAS.PAS[PAS,SYS], Page 6 line 164
1)			IF i > 0 THEN insert(buffer,ocval*sign)
1)		    UNTIL NOT (ch IN ['/',',']) OR ((ch = ',') AND (status <> '(')) OR end_of_switch;
**** File 2) LIBPAS.BKP[PAS,SYS], Page 6 line 164
2)			IF i > 0 THEN enter(buffer,ocval*sign)
2)		    UNTIL NOT (ch IN ['/',',']) OR ((ch = ',') AND (status <> '(')) OR end_of_switch;
***************


**** File 1) LIBPAS.PAS[PAS,SYS], Page 7 line 97
1)		IF device = 'LPT   ' THEN insert('LPT       ',0) ;
1)		error := (inputfile AND NOT defaulted AND (device = 'LPT   ')) OR error;
**** File 2) LIBPAS.BKP[PAS,SYS], Page 7 line 97
2)		IF device = 'LPT   ' THEN enter('LPT       ',0) ;
2)		error := (inputfile AND NOT defaulted AND (device = 'LPT   ')) OR error;
***************


**** File 1) LIBPAS.PAS[PAS,SYS], Page 7 line 206
1)		IF device = 'LPT   ' THEN insert('LPT       ',0) ;
1)		error := (inputfile AND NOT defaulted AND (device = 'LPT   ')) OR error;
**** File 2) LIBPAS.BKP[PAS,SYS], Page 7 line 206
2)		IF device = 'LPT   ' THEN enter('LPT       ',0) ;
2)		error := (inputfile AND NOT defaulted AND (device = 'LPT   ')) OR error;
***************


**** File 1) LIBPAS.PAS[PAS,SYS], Page 37 line 1
1)	PROGRAM strings, assign, length, pos, substr, concat, getchr, putchar,
1)	    strlt, strle, streq, strge, strgt, strne, wrtstr, wrtst1;
**** File 2) LIBPAS.BKP[PAS,SYS], Page 37 line 1
2)	PROGRAM strings, assign, length, pos, substr, concat, getchar, putchar,
2)	    strlt, strle, streq, strge, strgt, strne, wrtstr, wrtst1;
***************


**** File 1) LIBPAS.PAS[PAS,SYS], Page 37 line 30
1)	     *           getchr, PUTCHAR   MOVE AROUND PARTS OF STRINGS
1)	     *
**** File 2) LIBPAS.BKP[PAS,SYS], Page 37 line 30
2)	     *           GETCHAR, PUTCHAR   MOVE AROUND PARTS OF STRINGS
2)	     *
***************


**** File 1) LIBPAS.PAS[PAS,SYS], Page 37 line 40
1)	     *       N. B.: SUBSTR, getchr AND PUTCHAR CONTAIN CODE FOR BOUNDARY
1)	     *              CHECKING OF THE START POSITION, WHICH WILL BE SUPERFLUOUS
**** File 2) LIBPAS.BKP[PAS,SYS], Page 37 line 40
2)	     *       N. B.: SUBSTR, GETCHAR AND PUTCHAR CONTAIN CODE FOR BOUNDARY
2)	     *              CHECKING OF THE START POSITION, WHICH WILL BE SUPERFLUOUS
***************


**** File 1) LIBPAS.PAS[PAS,SYS], Page 37 line 293
1)	     *      FUNCTION getchr
1)	     *
**** File 2) LIBPAS.BKP[PAS,SYS], Page 37 line 293
2)	     *      FUNCTION GETCHAR
2)	     *
***************


**** File 1) LIBPAS.PAS[PAS,SYS], Page 37 line 298
1)	     *	    this procedure is known to the user as getchar. the name was
1)	     *	    modified to avoid a naming conflict with the sail runtime library.
1)	     *	    (6-sep-79. arr.)
1)	     *
1)	     *      getchr IS A PRE-DECLARED FUNCTION
1)	     *      AVAILABLE TO EVERY PASCAL USER.
**** File 2) LIBPAS.BKP[PAS,SYS], Page 37 line 298
2)	     *      GETCHAR IS A PRE-DECLARED FUNCTION
2)	     *      AVAILABLE TO EVERY PASCAL USER.
***************


**** File 1) LIBPAS.PAS[PAS,SYS], Page 37 line 307
1)	FUNCTION getchr (src: string; srcpos: strgrange; srclen: strgrangeneg): char;
1)	    VAR
1)		ch: char;
1)	    BEGIN (* getchr *)
1)	    procname := 'GETCHAR';
**** File 2) LIBPAS.BKP[PAS,SYS], Page 37 line 303
2)	FUNCTION getchar (src: string; srcpos: strgrange; srclen: strgrangeneg): char;
2)	    VAR
2)		ch: char;
2)	    BEGIN (* GETCHAR *)
2)	    procname := 'GETCHAR';
***************


**** File 1) LIBPAS.PAS[PAS,SYS], Page 37 line 325
1)		getchr := src.strtext[srcpos];
1)	    END (* getchr *);
1)	    (**********************************************************************
**** File 2) LIBPAS.BKP[PAS,SYS], Page 37 line 321
2)		getchar := src.strtext[srcpos];
2)	    END (* GETCHAR *);
2)	    (**********************************************************************
***************


**** File 1) LIBPAS.PAS[PAS,SYS], Page 38 line 65
1)	    END;
**** File 2) LIBPAS.BKP[PAS,SYS], Page 38 line 65
2)	    call('pcref dmp');
2)	    END;
***************